﻿Module Module1
  Sub Main()

    My.Computer.FileSystem.RenameDirectory(
      "C:\cartella1", "c:\cartella2")
    My.Computer.FileSystem.RenameFile(
      "C:\file1.txt", "c:\file2.txt")

  End Sub
End Module
